home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
autodox2.zip
/
SAMPLE1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-07-10
|
668b
|
50 lines
Program SAMPLE1;
Uses CRT, DOS, AnyUnits, etc, etc, etc.;
Procedure ONE(a:integer,
b:real,
c:char);
Begin
.
.
code goes here
.
.
End;
Procedure TWO(a:integer,
b:real,
c:char);
Begin
.
.
code goes here
.
.
End;
Procedure Three;
Begin
.
.
code goes here
.
.
End;
Function Four():Boolean;
Begin
.
.
code goes here
.
.
End;
Begin
.
.
code goes here
.
.
End.